From: Stephen Eglen <stephen@gnu.org>
Date: Sun, 1 Feb 2004 13:52:06 +0000 (+0000)
Subject: Add support for maxima-mode.  Update commentary
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24306
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d412ec3b5d433b64897ab3f98d94fd3c45a94131;p=emacs.git

Add support for maxima-mode.  Update commentary
because info-lookup-symbol is now bound to C-h S.
---

diff --git a/lisp/info-look.el b/lisp/info-look.el
index a184567ea9c..89eb1d7e411 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;; Really cool code to lookup info indexes.
-;; Try especially info-lookup-symbol (aka C-h TAB).
+;; Try especially info-lookup-symbol (aka C-h S).
 
 ;;; Code:
 
@@ -830,6 +830,17 @@ Return nil if there is nothing appropriate in the buffer near point."
 	      nil; "^ - [^:]+:[ ]+" don't think this prefix is useful here.
 	      nil)))
 
+(info-lookup-maybe-add-help
+ :mode 'maxima-mode
+ :ignore-case t
+ :regexp "[a-zA-Z_%]+"
+ :doc-spec '( ("(maxima)Function and Variable Index" nil 
+	       "^ - [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)))
+
+(info-lookup-maybe-add-help
+ :mode 'inferior-maxima-mode
+ :other-modes '(maxima-mode))
+
 ;; coreutils and bash builtins overlap in places, eg. printf, so there's a
 ;; question which should come first.  Some of the coreutils descriptions are
 ;; more detailed, but if bash is usually /bin/sh on a GNU system then the